home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / source15 / clntserv.dfm / clntserv.txt
Encoding:
Text File  |  1995-12-22  |  3.4 KB  |  165 lines
  1. object Form1: TForm1
  2.   Left = 223
  3.   Top = 99
  4.   BorderStyle = bsDialog
  5.   Caption = 'SOCKETS Component Client/Server example program'
  6.   ClientHeight = 299
  7.   ClientWidth = 525
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   OnCreate = FormCreate
  14.   TextHeight = 16
  15.   object Label2: TLabel
  16.     Left = 256
  17.     Top = 68
  18.     Width = 30
  19.     Height = 16
  20.     Caption = 'Port:'
  21.   end
  22.   object Label5: TLabel
  23.     Left = 16
  24.     Top = 108
  25.     Width = 86
  26.     Height = 16
  27.     Caption = 'Data to send:'
  28.   end
  29.   object Label1: TLabel
  30.     Left = 24
  31.     Top = 68
  32.     Width = 78
  33.     Height = 16
  34.     Caption = 'IP Address: '
  35.   end
  36.   object Connect: TButton
  37.     Left = 8
  38.     Top = 8
  39.     Width = 81
  40.     Height = 33
  41.     Hint = 'Connect to the '#39'listening'#39' server'
  42.     Caption = 'Connect'
  43.     ParentShowHint = False
  44.     ShowHint = True
  45.     TabOrder = 4
  46.     OnClick = ConnectClick
  47.   end
  48.   object SendData: TButton
  49.     Left = 96
  50.     Top = 8
  51.     Width = 89
  52.     Height = 33
  53.     Hint = 'Send data to the server'
  54.     Caption = 'Send Data'
  55.     ParentShowHint = False
  56.     ShowHint = True
  57.     TabOrder = 5
  58.     OnClick = SendDataClick
  59.   end
  60.   object Listen: TButton
  61.     Left = 192
  62.     Top = 8
  63.     Width = 73
  64.     Height = 33
  65.     Hint = 'Establish a server environment and listen for client requests'
  66.     Caption = 'Listen'
  67.     ParentShowHint = False
  68.     ShowHint = True
  69.     TabOrder = 6
  70.     OnClick = ListenClick
  71.   end
  72.   object Close: TButton
  73.     Left = 272
  74.     Top = 8
  75.     Width = 65
  76.     Height = 33
  77.     Hint = 'Close the connection'
  78.     Caption = 'Close'
  79.     ParentShowHint = False
  80.     ShowHint = True
  81.     TabOrder = 7
  82.     OnClick = CloseClick
  83.   end
  84.   object CancelListen: TButton
  85.     Left = 344
  86.     Top = 8
  87.     Width = 105
  88.     Height = 33
  89.     Hint = 'Close the server connection and cancel client requests'
  90.     Caption = 'Cancel Listen'
  91.     ParentShowHint = False
  92.     ShowHint = True
  93.     TabOrder = 8
  94.     OnClick = CancelListenClick
  95.   end
  96.   object Port: TEdit
  97.     Left = 304
  98.     Top = 64
  99.     Width = 65
  100.     Height = 25
  101.     Hint = 
  102.       'Port number of '#39'listening'#39' partner to connect to or port to '#39'lis' +
  103.       'ten'#39' on'
  104.     ParentShowHint = False
  105.     ShowHint = True
  106.     TabOrder = 1
  107.     Text = '5000'
  108.   end
  109.   object Edit1: TEdit
  110.     Left = 112
  111.     Top = 104
  112.     Width = 393
  113.     Height = 25
  114.     Hint = 'Data to send to '#39'listening'#39' partner'
  115.     MaxLength = 255
  116.     ParentShowHint = False
  117.     ShowHint = True
  118.     TabOrder = 2
  119.     Text = 'The Quick Brown Fox Jumped Over The Lazy Dog 0123456789 Times'
  120.   end
  121.   object Memo1: TMemo
  122.     Left = 16
  123.     Top = 152
  124.     Width = 489
  125.     Height = 129
  126.     Hint = 'Output area'
  127.     ParentShowHint = False
  128.     ScrollBars = ssBoth
  129.     ShowHint = True
  130.     TabOrder = 3
  131.   end
  132.   object HelpButton: TButton
  133.     Left = 456
  134.     Top = 8
  135.     Width = 49
  136.     Height = 33
  137.     Caption = 'Help'
  138.     TabOrder = 9
  139.     OnClick = HelpButtonClick
  140.   end
  141.   object IPAddr: TEdit
  142.     Left = 112
  143.     Top = 64
  144.     Width = 121
  145.     Height = 24
  146.     Hint = 'IP Address (or hostname)  of partner to '#39'conenct'#39' too.'
  147.     ParentShowHint = False
  148.     ShowHint = True
  149.     TabOrder = 0
  150.     Text = '127.0.0.1'
  151.   end
  152.   object Sockets1: TSockets
  153.     Left = 464
  154.     Top = 56
  155.     Width = 32
  156.     Height = 32
  157.     IPAddr = '127.0.0.1'
  158.     Port = '5000'
  159.     OnDataAvailable = Sockets1DataAvailable
  160.     OnSessionClosed = Sockets1SessionClosed
  161.     OnSessionAvailable = Sockets1SessionAvailable
  162.     OnSessionConnected = Sockets1SessionConnected
  163.   end
  164. end
  165.